Những câu hỏi liên quan
bui pham phuong Uyen
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 1 2021 lúc 21:39

1:

uses crt;

var a:array[1..100]of integer;

i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

2: 

uses crt;

var a:array[1..100]of integer;

i,n,j,tam:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n-1 do 

  for j:=i+1 to n do

if a[i]>a[j] then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

3:

uses crt;

var x,i,max:integer;

begin

clrscr;

repeat

write('Nhap x='); readln(x);

until x>0;

max:=0;

for i:=1 to x do 

  if i mod 2=0 then

begin

if max<=i then max:=i;

end;

writeln('So chan lon nhat khong vuot qua ',x,' la: ',max);

readln;

end.

Bình luận (0)
Tòng Minh Hiển
Xem chi tiết
Trịnh Viết Hân
Xem chi tiết
123654
9 tháng 5 2016 lúc 17:12

Ta có: \(\left[\frac{n}{2}\right]+\left[\frac{n}{3}\right]+\left[\frac{n}{4}\right]=\frac{n}{2}+\frac{n}{3}+\frac{n}{4}\)

Mà \(\left[\frac{n}{2}\right]+\left[\frac{n}{3}\right]+\left[\frac{n}{4}\right]\) có kết quả là số nguyên

Nên \(\frac{n}{2}+\frac{n}{3}+\frac{n}{4}\) cũng phải có kết quả là số nguyên. Hay \(\frac{n}{2};\frac{n}{3};\frac{n}{4}\) đều là số nguyên.

=> n chia hết cho cả 2;3 và 4 

Vậy n sẽ là Bội của 2;3;4 hay n = 24k (k \(\in\) N*, k < 84) (BCNN(2;3;4)=24)

\(n\in\left\{24;48;72;96;120;...;1992\right\}\) Không có số 0 vì số 0 không phải là số nguyên dương.

Bình luận (0)
Nguyễn Khánh Linh
Xem chi tiết
Nguyễn Danh Thái
1 tháng 3 2022 lúc 21:39

cao tơ ff liq ưên

F

F

Bình luận (0)
 Khách vãng lai đã xóa
Linh Linh
Xem chi tiết
Dương Ngọc Nguyễn
9 tháng 5 2021 lúc 22:12

program mang;
uses crt;
var n,i,chan, le,max,min: Integer;
a:array[1..100] of integer;
begin
write('nhap so phan tu ');read(n);
for i:=1 to n do
begin
write('nhap so thu ',i); readln(a[i]);
end;
max:=a[1]; min:=a[1]; chan:=0;le:=0;
for i:=1to n do
begin
if a[i] > max then max:=a[i];
if a[i] < min then min:=a[i];
if a[i] mod 2 = 0 then chan:=chan+1
else le:=le+1;
end;
writeln('max la: ',max);
writeln('min la: ',min);
writeln('so phan tu chan: ',chan);
writeln('so phan tu le: ',le);
readln
end.

Bình luận (0)
Minh
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 12:58

uses crt;

var a:array[1..100]of integer;

i,n,max,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

 begin

write('A[',i,']='); readln(a[i]);

end;

max:=a[1];

for i:=1 to n do 

  if max<a[i] then max:=a[i];

writeln('Gia tri lon nhat la: ',max);

dem:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then inc(dem);

writeln('So so chan la: ',dem);

readln;

end.

Bình luận (0)
Hồ Thị Ngọc Vy
Xem chi tiết
Thanh Phong (9A5)
10 tháng 4 2023 lúc 14:27

Uses crt;

var max,min,n,i,m,n: longint;

a: array[1..100] of longint

begin clrscr;

for i:=1 to n do begin

if(a[i] mod 2=0) then m:=m+a[i];

if(a[i] mod 2<>0) then n:=n+a[i];

end;

max:=a[1];

min:=a[1];

for i:=1 to n do begin

if(max<a[i]) then max:=a[i];

if(min>a[i]) then min:=a[i];

end;

Writeln('Tong cac phan tu chan: ',m);

Writeln('Tong cac phan tu le: ',n);

Writeln('Phan tu co gia tri lon nhat: ',max);

Writeln('Phan tu co gia tri nho nhat: ',min);

readln;

end.

Bình luận (0)
Hồ Thị Ngọc Vy
Xem chi tiết
Thanh Phong (9A5)
11 tháng 4 2023 lúc 11:29

Uses crt;

var max,min,n,i,m,n: longint;

a: array[1..100] of longint

begin clrscr;

for i:=1 to n do begin

if(a[i] mod 2=0) then m:=m+a[i];

if(a[i] mod 2<>0) then n:=n+a[i];

end;

max:=a[1];

min:=a[1];

for i:=1 to n do begin

if(max<a[i]) then max:=a[i];

if(min>a[i]) then min:=a[i];

end;

Writeln('Tong cac phan tu chan: ',m);

Writeln('Tong cac phan tu le: ',n);

Writeln('Phan tu co gia tri lon nhat: ',max);

Writeln('Phan tu co gia tri nho nhat: ',min);

readln;

end.

Bình luận (0)
Lại Quang Thắng
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 10 2021 lúc 21:25

Bài 2: 

#include <bits/stdc++.h>

using namespace std;

long long a;

int main()

{

cin>>a;

if (a%2==0) cout<<"la so chan";

else cout<<"La so le";

return 0;

}

Bình luận (0)